Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue43/makemic/MAKEMIU.DFM/MAKEMIU.txt

Text File | 1998-09-23 | 3.3 KB | 157 lines

object Form1: TForm1
  Left = 261
  Top = 217
  Width = 283
  Height = 274
  BorderIcons = [biSystemMenu]
  Caption = 'MakeMethodInstance demo'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GBDirectoryDets: TGroupBox
    Left = 4
    Top = 4
    Width = 268
    Height = 242
    Caption = 'Directory details'
    TabOrder = 0
    object Label1: TLabel
      Left = 7
      Top = 23
      Width = 45
      Height = 13
      Caption = 'Directory:'
    end
    object ListBox1: TListBox
      Left = 6
      Top = 48
      Width = 257
      Height = 120
      ItemHeight = 13
      TabOrder = 0
    end
    object BaseDirectory: TEdit
      Left = 58
      Top = 21
      Width = 205
      Height = 21
      TabOrder = 1
      Text = 'C:\'
    end
    object BtnCancel: TButton
      Left = 217
      Top = 215
      Width = 48
      Height = 21
      Caption = 'Cancel'
      TabOrder = 2
      OnClick = BtnCancelClick
    end
    object BtnStart: TButton
      Left = 5
      Top = 215
      Width = 48
      Height = 21
      Hint =
        'Invokes the standard MakeMethodInstance to demonstrate a method ' +
        'being called with the pascal calling convention.'
      Caption = 'Start'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BtnStartClick
    end
    object CBSysFile: TCheckBox
      Left = 7
      Top = 193
      Width = 55
      Height = 19
      Caption = 'System'
      State = cbChecked
      TabOrder = 4
    end
    object CBHidden: TCheckBox
      Left = 91
      Top = 172
      Width = 55
      Height = 19
      Caption = 'Hidden'
      State = cbChecked
      TabOrder = 5
    end
    object CBReadOnly: TCheckBox
      Left = 7
      Top = 172
      Width = 68
      Height = 19
      Caption = 'ReadOnly'
      State = cbChecked
      TabOrder = 6
    end
    object CBArchive: TCheckBox
      Left = 91
      Top = 192
      Width = 55
      Height = 19
      Caption = 'Archive'
      State = cbChecked
      TabOrder = 7
    end
    object CBDirectory: TCheckBox
      Left = 167
      Top = 172
      Width = 68
      Height = 19
      Caption = 'Directory'
      State = cbChecked
      TabOrder = 8
    end
    object BtnStartR2: TButton
      Left = 111
      Top = 215
      Width = 48
      Height = 21
      Hint =
        'Invokes MakeMethodInstance32Reg to demonstrate a method with two' +
        ' optimised parameters'
      Caption = 'Start R2'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = BtnStartR2Click
    end
    object BtnStartR3: TButton
      Left = 164
      Top = 215
      Width = 48
      Height = 21
      Hint =
        'Invokes MakeMethodInstance32Reg to demonstrate a method with thr' +
        'ee optimised parameters'
      Caption = 'Start R3'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = BtnStartR3Click
    end
    object BtnStartR1: TButton
      Left = 58
      Top = 215
      Width = 48
      Height = 21
      Hint =
        'Invokes MakeMethodInstance32Reg to demonstrate a method with one' +
        ' optimised parameter'
      Caption = 'Start R1'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = BtnStartR1Click
    end
  end
end